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FACILITY: EDT -- The DEC Standard Editor 


{| ABSTRACT: 


Define a key 


i ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: 6-AUG-1979 
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i ; MODIFIED BY: 


-001 - Original. DJS 18-FEB-1981. This module was created by 
extracting routine EDTSSDEFK Adraal module EDTCTR. 

-002 - Regularize headers. JBS 04-Mar-1981 

Implement virtual memory deallocation. TMV 6-Aug-81 
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New implementation of defined keys. JBS 15-Aug-1982 


2 
EDTSDEFKEY - define a ke 18. Sep-1984 5 VAX-11 ss-32 V 
. 14- ~8ep-1984 99: 38: 2g Disk SK$V nen STER: tt 
ZTITLE "EDTSDEFKEY = define a key' 
MODULE EDTSDEFKEY ( ! Define a key 
ie = 'v04-000' ' File: DEFKEY.BLI Edit: 
BEGIN 
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Return an error code to distinguish the types of grcore. JBS 18-May-1982 
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EDISDEFKEY = define & key 1B-Se0-1984 00:16:52 YAK 
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MSBTTL "Declarations' 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSDEFK; 


: INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 
LIBRARY ‘EDTSRC:KEYPADDEF '; 


MACROS: 
: NONE 

{ EQUATED SYMBOLS: 
NONE 

i OWN STORAGE : 

: NONE 

| EXTERNAL REFERENCES: 
j 


In the routine 


X=11 
K$V men 


$-32 V 
TER: cED 


0-74 
«SRC IDEFKEY.BLI; 7 


(25 


dD 2 
EDTSDEFKEY EDTSDEFKEY = define a ke 16-Sep-1984 00:16: VAX-11 Bliss-32 V4.0-74 Page 3 
4 000 EDTSSDEFK = define a key 12288-1382 99:38:36 DLEKSVMGHASTERSCEDT SRCIDEFKEY.BLI:1 ' (3) 
; Hy 0638 } XSBITL "EDTSSDEFK = define a key' 
; $660 1 GLOBAL ROUTINE EDTSSDEFK ( ! Define a key 
3; 9 0661 1 ! Key number to define 
: ¥ bO6¢ 1 STRING, | Address of new definition 
; 665 1 LEN ! Length of that definition 
>; «(94 0664 1 )= 
ca oe 0665 1 
; 0666 1 !++ 
: 97 0667 1 =! FUNCTIONAL DESCRIPTION: 
; 9668 1! ; : 
; 299 0669 1! Define a ker. It is entered in the table of defined keys 
: 100 0670 1! so that EDTSSFIND_KEY can find it. 
: 101 0671 1! 
: 106 067 1 ! FORMAL PARAMETERS: 
: WwW 0673 1! 
> 104 0674 1! KEY Key number to define 
; WS 0675 1! ; ; 
: 106 0676 1 ! STRING Address of new definition string 
» >For 0677 1! 
; 108 0678 1! LEN Length of that definition 
: 109 0679 1! 
; 39 0680 1 ! IMPLICIT INPUTS: 
3 Ti 0681 1! 
; V2 0682 1! NONE 
: toe 0683 1! 
> 1146 0684 1 ! IMPLICIT OUTPUTS: 
s 415 0685 1! 
s 316 0686 1! EDTSS$A_TRN_TBL 
s Fir 0687 1! 
; 38 0688 1 ! ROUTINE VALUE: 
3 119 0689 1! 2 
: Yeo 0690 1! 1 = key defined 
; i$) +e4 : any even number - an error code to be printed using EDTSSOUT_MSG. 
: 158 0695 1 ! SIDE EFFECTS: 
: 124 0694 1! 
s 25 0695 1! Allocates dynamic memory for the key definition 
; ven 0696 1! 
s Ver 0697 1 !-- 
: 128 0698 1 
3: 129 0699 2 BEGIN 
: 130 0700 
; (131 0701 EXTERNAL ROUTINE 
3 ‘se 0702 EDTSSTST_BADK, ! Test for an undefinable hey ml 
; 135 0703 2 EDTSSCAN_KDEF, ' Cancel an existing key definition, if any 
3; «134 0704 2 EDTSSALO_HEAP; ! Allocate heap storage 
zs 135 0705 § 
3s 136 0706 EXTERNAL ; 
; HE HA $424 2 EDT$S$A_TRN_TBL : VECTOR; ! The keypad translation table 
; 1 0709 3 MESSAGES ((KEYNOTDEF, INSMEM)); 
3; 140 0710 
3; «(141 0711 OCAL 
3 146 aris KEY_PTR : REF BLOCK C, BYTE] FIELD (KEY_DEF_FIELD), 
; ez tar STATUS; 
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Y = define a key 1-53 Sep-1984 35 VAX-11 BLi eke 0-74 Page 4 
- define a key 14- ~3ep-1984 99: 38: 24 DISK SVMSMA ‘CED + SRCSDEFKEY.BLI;1 “ (3) 


IF EDTSSTST_BADK (.KEY) THEN RETURN (EDTS_KEYNOTDEF); 
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'¢ 
Cancel any existing definition of the key. 


STATUS = EDTSSCAN_KDEF (.KEY); 
IF ( NOT .STATUS) THEN RETURN (.STATUS); 
14 
‘ Allocate storage to hold the key definition. 
| 
IF ( NOT EDTSSALO_HEAP (ZREF (.LEN + KEY_DEF_OVERHEAD), KEY_PTR)) THEN RETURN (EDT$_INSMEM); | 
| 


14 
\ Load up the key definition block and store in the table. 


KEY_PTR CKEY_DEF Sith sFOTEOA., TRN_TBL C.KEY MOD K_KPAD_HASHSIZ); 


KEY-PTR CKEY-DEF— z, 
EDTS$A_TRN_TBL C7KEY MOD K_KPAD_HASHSIZ) = KEY P 
DISSCPY_MEM (.LEN, .STRING, CHSPTR (KEY_PTR CKEY We _TEXT))); | 
END; ! of routine EDTSSDEFK 
| 
.TITLE EDTSDEFKEY EDTSDEFKEY - define a key | 
[IDENT \V04-000\ | 
EXTRN EDTSSTST_BADK, EDTS$SCAN_KDEF 
-EXTRN EDTS$SALO-HEAP, EDT$$A_TRN_TBL 
-EXTRN EDTS_KEYNOTDEF, EDTS_INSMEM | 
003¢ 00000 .ENTRY EDTSSDEFK, Save R2,R3,R4,R5 > 0660 | 
SE 08 C2 00002 SUBL2 #8, SP ; 
04 AC DD 00005 PUSHL KEY : 0715 
000000006 00 gi FB 60008 CALLS #1, EDTS$TST_BADK ; 
08 0 €9 O000F BLBC ~—_ RO, ; 
50 000000006 8F DO 00012 MOVL § #EDTS_KEYNOTDEF, RO ; | 
04 0001 RET ; | 
04 aC DD D001, 1$: PUSHL KEY ; 0720) 
000000006 99 01 FB 0001D CALLS #1, EDTSS$CAN_KDEF : 
5 50 9 00024 LBC = STATUS, 3$ ; 0722 | 
04 AE F 00027 PUSHAB KEY PIR ; 
04 AE Oc ac 07 C1 0002A ADDL3 #7, LEN, 4(SP) ; 
04 AE 9F 000 0 PUSHAB ; 
000000006 00 Q FB 00 CALLS DTSS$ALO_HEAP ; 
08 E8 OOO3A BLBS ; 
50 000000006 &F BO do9%e MOVL #EOTS_INSMEM, RO F 
51 04 AE bo 9 45 2%: MOVL k Y_PTR : 0733. 
00 04 AC ON A 00049 EMUL “KEY, a. (SP) ; | 
50 BE 00 9000¢7 F 7B O004F EDIV #199 (§p)+° RO) ; 
0060040 DE 00058 MOVAL EDTS$A. TRN_fBL Rone RO ; 
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Page 
SRCSDEFKEY-BLI:1 . 


VAX=11 Bliss-32 V4.0=-74 


DISKSVMSMASTER:CEDT. 


2 
1erSep-1986 12:28:58 
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Y = define a key 
- define a key 


EDTSDEFKEY 
v04-000 
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-EDT$CODE + 0000 


123 bytes, Routine Base: 


; Routine Size: 


!<BLF /PAGE> 
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2 
EDTSDEFKEY EDTSDEFKEY = define a ke 18-5 Sep-1984 VAX-11 Bliss-32 V e 6 
v04-000 EDTSSDEFK = define a key 14-Sep-1 1383 99: 38: 3g DISKSVMSMASTER: a i SRCSDEFKEY. BLI;1 tne (4) | 
i 
s Ws 0742 1 END ! of module EDTSDEFKEY ‘ 
> 417% preg : of module E E 
: 175 0744 0 ELUDOM ; 
PSECT SUMMARY 
: Name Bytes Attributes | : 
;  EDTSCODE 123 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | : 
| io 
: 
| : 
: Library Statistics | 
Beene tal <a a oe eee | VC Symbols -------- Pages Processing ; 
: File Total Loaded Percent Mapped Time : 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 1 0 40 00:00.2 
3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 | 
3 ~$255$DUA28:CEDT.SRCIKEYPADDEF .L32;1 34 7 20 7 00:00.1 | 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:DEFKEY/OBJ=OBJ$:DEFKEY MSRC$:DEFKEY.BLI/UPDATE=(ENHS:DEFKEY) 


; Size: 123 code + 0 data bytes 

; Run Time 00:11.5 
; ee tees 00:14.4 
; Lines/CPU Min: 3868 
; Lexemes/CPU-Min: 12306 

; rome Used: 75 pages 

; Compilation Complete 


0133 AH-BT13A | | T CORPORATION 
: VAX/VMS_V4.0 | PROPRIETARY 


